home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 April / Ahoy_Magazine_88-04_1988_Double_L.d64 / Time Subway (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  12.7 KB  |  296 lines
  1. 10 poke56,62:clr:poke53280,.:poke53281,.:printchr$(8)chr$(142):x=rnd(ti)
  2. 20 poke53248+21,255:poke53248+21,.:sys65418:gosub1010:pl=49847:a=52224:b=52480
  3. 30 forx=atob:readd:pokex,d:next:a=49152:b=49970:forx=atob:readd:pokex,d:next
  4. 40 a=248*64:b=a+7*64:forx=atob:readd:pokex,d:next
  5. 50 print"[154]based on a concept by lynwood brooks"
  6. 60 forx=.to63:poke832+x,.:poke896+x,255:poke960+x,255:next:poke864,16
  7. 70 forx=2to63step3:poke896+x,.:next:poke864,16:poke867,16
  8. 80 print"[152]programmed by cleveland m. blakemore";:syspl,.,16:gosub1100
  9. 90 print"[152][213][195][201][157][157][157][194] [194][157][157][157][202][195][203]":printtab(32)"[145][145][145][213][195][201][157][157][157][194] [194][157][157][157][202][195][203]"
  10. 100 syspl,10,9:print"[154]press fire to begin"
  11. 110 a$(.)="[194]":a$(1)="[206]":a$(2)="[195]":a$(3)="[205]":x=.
  12. 120 sys52224,1,16,21:print""tab(4)a$(x)tab(33)a$(x):x=x+1+(x=3)*4
  13. 130 on-((peek(56320)and16)>.)goto120:print"[147]"
  14. 140 dim v,p,y,j,r,u,e,d,h,w,i,l,sp,n,lx,ly,g,m,s,s$(47),d(1),t(47),sc(3)
  15. 150 v=53248:j=56320:sc=52224:m=1988:s=54272:d(.)=-1:d(1)=1:n=209:u=1:e=2:g=4
  16. 160 h=64:l=100:lx=172:ly=200:i=.025:sp=1337
  17. 170 forx=.to3:readsc(x):next:reada$(.),a$(1)
  18. 180 forx=1to45:readt(x),s$(x):next
  19. 190 xs=49634:ys=49647:tg=49660:fl=49673:cf=49692:md=49711:ss=49755:sb=49774
  20. 200 deffnf(x)=-((peek(j)and16)>.):deffnm(x)=(peek(v+21)and16)=.
  21. 210 deffnp(x)=peek(v+16)and239
  22. 220 sys49805,255,.
  23. 230 sysxs,41,21:sysys,123,214:systg,6,14:sysfl,0,0,0:syscf,16,31,14:sysss,4,3
  24. 240 poke2040,248:poke2044,13:poke2045,14:poke2046,15:poke2047,248
  25. 250 pokev+28,143:pokev+37,1:pokev+38,11:pokev+39,10:pokev+43,1
  26. 260 pokev+44,.:pokev+45,.:pokev+46,9:pokev+10,160:pokev+11,115
  27. 270 pokev+12,160:pokev+13,103:pokev+14,172:pokev+15,200:pokev+23,32:pokev+29,96
  28. 280 y=m:d=.:w=.:gosub990
  29. 290 gosub1170:gosub1260:gosub1390
  30. 300 p=129:a$="99599592":gosub1420
  31. 310 pokev+16,.:pokev+10,168:pokev+11,115:pokev,172:pokev+1,87
  32. 320 pokev+21,33:pokev+27,223:gosub1300:pokev+27,222:gosub1370:gosub1320
  33. 330 x=(y=t(hx)):pokev+21,65+(x<>.)*-128+(x=.)*-14:r=(x=.)*-.8
  34. 340 fora=.to9:a=peek(v+30):a=peek(v+31):next:sysfl,0,1,1:sys49152
  35. 350 p=129:a$="111455808101101101101101101":gosub1420:fora=.to3:sysss,a,1:next
  36. 360 rem main loop for subway platform
  37. 370 syssc,d,e,7:ifrnd(u)>rthensysmd,rnd(u)*4+u,rnd(u)*8+u
  38. 380 ifxtheniffnm(.)thenpokev+16,fnp(.):pokev+8,lx:pokev+9,ly:pokev+21,n
  39. 390 w=w+i:a=peek(v+30):b=peek(v+31):ifw>lor((aandu)=uand(aandh)=.)then410
  40. 400 onfnf(.)goto370:on((bandu)=u)*-u+(a=h+u)*-egoto550,820:goto370
  41. 410 forx=.to3:sysss,x,.:next:pokes+6,96:pokes+24,15:pokes+4,33
  42. 420 forx=.to255step5:pokes,x:pokes+1,255-x:next:pokes+4,32
  43. 430 forx=.to96:pokev+32,xand15:next
  44. 440 on-(a=129ora=145)goto510:on-(w<l)goto540:syspl,9,9:poke198,.
  45. 450 rem time distortion reaches 100%
  46. 460 print"time distortion 100% !!"
  47. 470 p=33:ford=.to4:a$="121205":gosub1420:next
  48. 480 printtab(12)"play again (y/n)[154]"
  49. 490 wait198,1:geta$:ifa$="y"thenrun
  50. 500 poke679,.:sys679
  51. 510 rem found doctor
  52. 520 print"[147]":syspl,2,9:print"[150]you have stopped the crazed doctor!!"
  53. 530 poke198,.:p=33:ford=.to2:a$="251331421502421502":gosub1420:next:goto470
  54. 540 gosub990:y=int(rnd(u)*m)+u:syscf,16,30,14:pokev+17,11:goto880
  55. 550 forx=.to3:sysss,x,.:next:pokev+21,.
  56. 560 print"[147][158][176]";:forx=.to35:print"[195]";:next:print"[174]"
  57. 570 forx=.to20:printtab(1)"[194]"tab(38)"[194]":next
  58. 580 print"[173]";:forx=.to35:print"[195]";:next:print"[189]"
  59. 590 syspl,7,22:print"[152]time distortion factor:";:gosub960:print"%"
  60. 600 syspl,2,2:print"[158] space-time continuum subway system ":syspl,10,4
  61. 610 print"station: ";:a$=str$(y):gosub940:print" a.d.":x=fre(.)
  62. 620 p=33:a$="081112113211":gosub1420
  63. 630 a=.:forx=1to45:ify=t(x)thena=x
  64. 640 next:ifa=.then670
  65. 650 syspl,3,6:print"[155]significant event this time frame:"
  66. 660 syspl,20-(len(s$(a))/2),8:print""s$(a):goto680
  67. 670 syspl,2,6:print"[151]no significant event at this station"
  68. 680 syspl,2,10:print"[150]there is a human presence registered"
  69. 690 syspl,7,11:print"in the vicinity of the era"
  70. 700 syspl,9,12:print"marked by the event..."
  71. 710 p=17:a$="401401401401":gosub1420
  72. 720 printtab(20-(len(s$(hx))/2))""s$(hx):a$=str$(t(hx)):printtab(15)"[152]";
  73. 730 gosub940:print" a.d."
  74. 740 syspl,8,17:print""a$(.):syspl,32,17:printa$(1)
  75. 750 syspl,15,18:print"[152]s u b w a y":syspl,15,19:print"[155]m o t i o n"
  76. 760 a=usr(.)
  77. 770 ifa=3thend=1:syspl,32,17:print"[150]"a$(1):syspl,8,17:print""a$(.)
  78. 780 ifa=7thend=.:syspl,32,17:print""a$(1):syspl,8,17:print"[150]"a$(.)
  79. 790 ifa=3ora=7thenp=33:a$="991":gosub1420
  80. 800 on-((peek(j)and16)>.)goto760:p=17:a$="424242":gosub1420:gosub1170:goto330
  81. 810 rem subway time travel
  82. 820 sysfl,0,1,0:pokev,172:pokev+1,124:p=33:a$="50":gosub1420
  83. 830 syssc,d,2,7:fora=.to20:next:ifpeek(sp)<>186orpeek(sp+u)<>210then830
  84. 840 gosub1390
  85. 850 pokev+21,peek(v+21)or32:gosub1300:gosub1340:pokev+27,peek(v+27)or1
  86. 860 gosub1320:pokev+21,peek(v+21)and254
  87. 870 forx=90to10step-1:syssc,d,2,7:forb=.tox:next:next:pokev+17,11
  88. 880 pokev+21,.:print"[147][151]";:fora=.to3:gosub1230:gosub1240:next:print:gosub1100
  89. 890 print"[151]";:fora=.to3:gosub1230:gosub1240:next:pokev+17,27:a=9:b=14
  90. 900 syssc,d,a,b:y=y+d(d)+(y=mandd=u)*(m+u)+(y=.andd=.)*-(m+u):a$=str$(y)
  91. 910 w=w+i:on-(w>l)goto440:print""tab(17)"";:gosub940:onfnf(.)goto900
  92. 920 goto290
  93. 930 rem right justified year
  94. 940 printright$("    "+(right$(a$,len(a$)-u)),g);:x=fre(.):return
  95. 950 rem right justified time distortion
  96. 960 a$=str$(int(w)):printright$("000"+(right$(a$,len(a$)-1)),3);
  97. 970 x=fre(.):return
  98. 980 rem random location in time
  99. 990 hx=int((rnd(1)*44)+1):return
  100. 1000 rem title
  101. 1010 print"[147]"tab(4)"every second counts aboard the..."
  102. 1020 printtab(12)"[176][178][174] [178] [176][174][176][174] [178][195][174]"
  103. 1030 printtab(12)"[155] [194]  [194] [194][173][189][194] [171][179] "
  104. 1040 printtab(12)"[155] [177]  [177] [177]  [177] [177][195][189]"
  105. 1050 printtab(10)"[152][176][195][174][178] [178][178][195][174][178]  [178][176][195][174][174] [176]"
  106. 1060 printtab(10)"[151][173][195][174][194] [194][171][195][179][194][176][174][194][171][195][179][173][178][189]"
  107. 1070 printtab(10)"[151][173][195][189][173][195][189][177][195][189][173][189][173][189][177] [177] [177] "
  108. 1080 printtab(12)"[154]please stand by!"
  109. 1090 printtab(4)"[155](c) 1988 cleveland m. blakemore":return
  110. 1100 print"[155]";:forx=.to39:printchr$(183);:next
  111. 1110 print" [213][195][195][195][195][195][201] [213][195][195][195][195][195][201] [213][195][195][195][195][195][201] [213][195][195][195][195][195][201] [152]::::::[155] ";
  112. 1120 print" [202][195][195][195][195][195][203] [202][195][195][195][195][195][203] [202][195][195][195][195][195][203] [202][195][195][195][195][195][203] [152]:[151][176][195][195][174][152]:[155] ";
  113. 1130 print"[151][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][152]:[151][173][195][195][189][152]:[151][178]";
  114. 1140 print"[177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][152]:[151] [215][215] [152]:[151][177]";
  115. 1150 print"[155][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][152]:[151][210][210][210][210][152]:[155][176]":return
  116. 1160 rem subway platform
  117. 1170 pokev+17,11:poke646,sc(yand3)
  118. 1180 print"[147]";:gosub1230:gosub1240:print"";:gosub1240:gosub1230:forx=.to6
  119. 1190 print"[207][208]"spc(36)"[207][208][208][207]"spc(36)"[208][207]";:next:gosub1230:print"[157]";:gosub1230
  120. 1200 poke2023,208:print"";:gosub1100
  121. 1210 syspl,34,13:print"[158][161][151][176][195][174][157][157][157][157][158][161][151][194]i[194][157][157][157][157][158][161][151][194]n[194][157][157][157][157][158][161][151][194]f[194][157][157][157][157][158][161][151][194]o[194]";
  122. 1220 print"[157][157][157][157][158][161][151][173][195][189]":syspl,17,8:print"      ":pokev+17,27:return
  123. 1230 forx=.to19:print"[207][208]";:next:return
  124. 1240 forx=.to19:print"[208][207]";:next:return
  125. 1250 rem setup crowd of alien nasties
  126. 1260 forx=.to3:sysss,x,0:next:pokev+16,.:forx=1to3:sysmd,x,rnd(1)*8+1:next
  127. 1270 forx=1to3:pokev+x*2,x*85:pokev+x*2+1,214
  128. 1280 syssb,x,249+int(rnd(1)*3)*2,1:pokev+39+x,(rnd(1)*6)+2:next:return
  129. 1290 rem subway door up
  130. 1300 forx=115to82step-1:pokev+11,x:fora=.to30:nexta,x:return
  131. 1310 rem subway door down
  132. 1320 forx=82to115:pokev+11,x:fora=.to30:nexta,x:return
  133. 1330 rem professor in
  134. 1340 syscf,16,30,14:forx=124to87step-1:pokev+1,x:fora=.to30:nexta
  135. 1350 next:return
  136. 1360 rem professor out
  137. 1370 forx=87to124:pokev+1,x:fora=.to30:nexta,x:syscf,16,31,14:return
  138. 1380 rem slow door down to ready position
  139. 1390 forx=10to105+(d=u)*-8:forb=.tox:next:syssc,d,2,7:next
  140. 1400 p=33:a$="500":gosub1420:return
  141. 1410 rem sid string tone generator
  142. 1420 pokes+6,96:pokes+24,15
  143. 1430 fora=1to18step3
  144. 1440 pokes+1,val(mid$(a$,a,2)):pokes+4,p
  145. 1450 forb=1to80*val(mid$(a$,a+2,1)):next
  146. 1460 pokes+4,p-1:next:a=fre(.):return
  147. 1470 rem scroll data
  148. 1480 data 32,241,183,138,74,8,32,241,183,224,25,144
  149. 1490 data 2,162,24,142,246,7,32,241,183,224,25,144
  150. 1500 data 2,162,24,142,247,7,138,174,246,7,172,247
  151. 1510 data 7,56,237,246,7,176,8,73,255,174,247,7
  152. 1520 data 172,246,7,133,254,40,8,144,3,200,152,170
  153. 1530 data 189,203,204,133,98,189,229,204,133,97,40,8
  154. 1540 data 144,8,233,1,133,97,176,2,198,98,165,98
  155. 1550 data 41,3,9,4,40,8,32,134,204,40,8,165
  156. 1560 data 97,144,10,105,39,133,97,144,12,230,98,176
  157. 1570 data 8,233,39,133,97,176,2,198,98,165,98,41
  158. 1580 data 3,9,216,40,8,32,134,204,198,254,16,206
  159. 1590 data 40,96,133,98,144,3,76,171,204,160,,177
  160. 1600 data 97,170,160,39,177,97,72,138,145,97,104,170
  161. 1610 data 136,16,245,24,165,97,105,40,133,97,144,2
  162. 1620 data 230,98,96,56,165,97,233,40,133,97,176,2
  163. 1630 data 198,98,160,40,177,97,170,160,1,177,97,72
  164. 1640 data 138,145,97,104,170,200,192,41,208,243,96,4
  165. 1650 data 4,4,4,4,4,4,5,5,5,5,5,5
  166. 1660 data 6,6,6,6,6,6,6,7,7,7,7,7
  167. 1670 data 7,,40,80,120,160,200,240,24,64,104,144
  168. 1680 data 184,224,8,48,88,128,168,208,248,32,72,112
  169. 1690 data 152,192,232,,.
  170. 1700 rem interrupt data
  171. 1710 data 120,169,33,141,20,3,169,192,141,21,3,169,154,141,17,3,169,194
  172. 1720 data 141,18,3,173,36,195,133,251,169,1,141,37,195,88,96,198,251,208
  173. 1730 data 44,173,36,195,133,251,173,38,195,240,34,162,7,189,197,194,45,39
  174. 1740 data 195,240,21,189,1,195,24,125,17,195,157,248,7,222,17,195,16,6
  175. 1750 data 189,9,195,157,17,195,202,16,224,173,40,195,208,3,76,140,192,162
  176. 1760 data .,173,41,195,240,9,169,1,77,37,195,141,37,195,170,189,,220
  177. 1770 data 41,15,133,253,169,15,56,229,253,168,185,25,195,240,17,141,168,2
  178. 1780 data 168,185,196,194,61,48,195,240,5,138,168,32,162,192,169,7,141,167
  179. 1790 data 2,172,167,2,185,241,194,240,6,141,168,2,32,162,192,76,46,193
  180. 1800 data 185,197,194,45,50,195,208,16,173,168,2,10,170,189,205,194,8,152
  181. 1810 data 10,170,40,76,192,192,152,10,170,189,223,194,48,26,240,45,185,249
  182. 1820 data 194,24,125,,208,157,,208,144,33,185,197,194,77,16,208,141,16
  183. 1830 data 208,76,241,192,189,,208,56,249,249,194,157,,208,176,9,185,197
  184. 1840 data 194,77,16,208,141,16,208,185,197,194,45,50,195,208,18,173,168,2
  185. 1850 data 10,170,232,189,205,194,8,152,10,170,232,40,76,18,193,152,10,170
  186. 1860 data 232,189,223,194,48,15,240,23,185,249,194,24,125,,208,157,,208
  187. 1870 data 76,45,193,189,,208,56,249,249,194,157,,208,96,206,167,2,48
  188. 1880 data 3,76,145,192,162,7,142,167,2,172,167,2,152,10,170,185,197,194
  189. 1890 data 45,42,195,208,3,76,215,193,185,197,194,45,16,208,208,18,189,.
  190. 1900 data 208,56,205,44,195,176,56,173,44,195,157,,208,76,117,193,189,.
  191. 1910 data 208,56,205,45,195,144,38,173,45,195,157,,208,185,197,194,45,43
  192. 1920 data 195,240,12,169,255,56,249,197,194,45,21,208,141,21,208,189,223,194
  193. 1930 data 240,7,73,255,9,1,157,223,194,232,189,,208,56,205,46,195,176
  194. 1940 data 9,173,46,195,157,,208,76,183,193,189,,208,56,205,47,195,144
  195. 1950 data 38,173,47,195,157,,208,185,197,194,45,43,195,240,12,169,255,56
  196. 1960 data 249,197,194,45,21,208,141,21,208,189,223,194,240,7,73,255,9,1
  197. 1970 data 157,223,194,206,167,2,48,3,76,59,193,76,49,234,32,155,183,142
  198. 1980 data 44,195,32,155,183,142,45,195,96,32,155,183,142,46,195,32,155,183
  199. 1990 data 142,47,195,96,32,155,183,142,36,195,32,155,183,142,39,195,96,32
  200. 2000 data 155,183,142,41,195,32,155,183,142,38,195,32,155,183,142,40,195,96
  201. 2010 data 32,155,183,142,43,195,32,155,183,142,42,195,32,155,183,142,50,195
  202. 2020 data 96,32,155,183,138,41,7,72,32,155,183,104,168,56,224,9,144,2
  203. 2030 data 162,,138,153,241,194,152,10,168,138,10,170,189,205,194,153,223,194
  204. 2040 data 200,232,189,205,194,153,223,194,96,32,155,183,138,41,7,72,32,155
  205. 2050 data 183,104,168,138,41,15,153,249,194,96,32,155,183,138,41,7,72,32
  206. 2060 data 155,183,104,168,138,153,1,195,152,72,32,155,183,104,168,138,153,9
  207. 2070 data 195,153,17,195,96,32,155,183,142,48,195,32,155,183,142,49,195,96
  208. 2080 data 32,170,177,152,41,1,170,189,,220,41,15,133,253,169,15,56,229
  209. 2090 data 253,168,185,25,195,168,169,,108,5,,32,155,183,138,72,32,155
  210. 2100 data 183,104,168,24,76,240,255,1,2,4,8,16,32,64,128,,,.
  211. 2110 data 255,1,255,1,,1,1,,1,255,1,255,,255,255,,,.
  212. 2120 data .,,,,,,,,,,,,,,,,,.
  213. 2130 data .,,,,,1,1,1,1,1,1,1,1,,,,,.
  214. 2140 data .,,,1,1,1,1,1,1,1,1,,,,,,,.
  215. 2150 data .,,1,5,,7,8,6,,3,2,4,8,1,1,255,1,1
  216. 2160 data 255,,24,65,50,230,255,255,252
  217. 2170 rem sprite data
  218. 2180 data0,85,,,123,,,106
  219. 2190 data0,,170,,,170,,.
  220. 2200 data245,,3,85,64,13,117,80
  221. 2210 data53,85,84,215,119,213,211,85
  222. 2220 data77,211,117,77,211,85,77,211
  223. 2230 data117,77,211,85,77,171,117,74
  224. 2240 data131,85,98,3,195,192,3,195
  225. 2250 data192,3,195,192,15,195,240,.
  226. 2260 data0,250,,3,247,128,3,253
  227. 2270 data128,3,255,128,3,170,128,15
  228. 2280 data170,160,58,255,168,234,255,170
  229. 2290 data239,170,186,227,187,142,227,170
  230. 2300 data142,87,170,142,83,170,142,23
  231. 2310 data170,149,58,174,165,56,3,212
  232. 2320 data56,,232,20,,232,84,.
  233. 2330 data232,,,212,63,255,213,.
  234. 2340 data0,250,,3,247,128,3,253
  235. 2350 data128,3,255,128,3,170,128,15
  236. 2360 data170,160,58,255,168,234,255,170
  237. 2370 data239,170,186,227,187,142,227,170
  238. 2380 data142,227,170,149,227,170,133,87
  239. 2390 data170,148,90,174,160,22,3,224
  240. 2400 data58,,224,58,,80,58,.
  241. 2410 data84,21,,,85,255,252,.
  242. 2420 data0,,,3,105,128,14,170
  243. 2430 data160,14,170,160,15,125,224,13
  244. 2440 data215,96,3,170,128,14,170,160
  245. 2450 data58,170,168,235,234,186,192,234
  246. 2460 data142,240,234,130,195,170,162,243
  247. 2470 data163,172,11,163,224,35,128,224
  248. 2480 data35,128,224,163,128,224,15,160
  249. 2490 data224,12,131,232,63,255,187,.
  250. 2500 data0,,,3,105,128,14,170
  251. 2510 data160,14,125,160,15,255,224,13
  252. 2520 data215,96,3,170,128,14,170,160
  253. 2530 data58,170,168,235,234,190,240,234
  254. 2540 data130,192,234,142,195,170,162,243
  255. 2550 data163,172,11,163,160,11,128,224
  256. 2560 data35,128,224,35,128,224,131,131
  257. 2570 data232,14,160,200,63,191,255,.
  258. 2580 data0,170,,3,157,128,3,191
  259. 2590 data128,3,191,128,3,191,128,15
  260. 2600 data190,,15,170,129,15,170,161
  261. 2610 data14,170,169,58,170,169,235,234
  262. 2620 data173,248,234,174,248,234,174,248
  263. 2630 data255,234,32,234,136,,234,128
  264. 2640 data3,234,160,3,170,160,15,170
  265. 2650 data168,14,170,168,254,170,171,14
  266. 2660 data0,,,,170,,3,157
  267. 2670 data128,3,191,128,3,191,128,3
  268. 2680 data191,128,15,190,,15,170,129
  269. 2690 data15,170,161,14,170,169,58,170
  270. 2700 data169,235,234,173,248,234,174,248
  271. 2710 data234,174,248,255,234,32,234,136
  272. 2720 data0,234,128,3,234,160,3,170
  273. 2730 data160,15,170,168,254,170,171,255,.
  274. 2740 rem subway platform colors
  275. 2750 data 11,4,9,6
  276. 2760 rem control arrows
  277. 2770 data"[169][157][157][169]    [157][157][157][157][157][146][223]    [157][157][157][157][146][223]","[223][157][157][157][157]    [223][157][157][157][157][157]    [146][169][157][157][169]"
  278. 2780 rem time crossroads
  279. 2790 data0,jesus of nazareth,60,alexandrian steam engine,79,vesuvius erupts
  280. 2800 data143,ptolemy's egocentric solar system,400,visigoths overrun rome
  281. 2810 data450,alexandria library burns,476,dark ages begin,540,birth of muhammed
  282. 2820 data700,pueblo indians,770,age of charlemagne,1000,leif ericcson's voyage
  283. 2830 data1066,william the conquerer,1067,bayeaux tapestry
  284. 2840 data1200,crusaders sack constantinople,1215,magna carta
  285. 2850 data1348,black plague of europe,1454,gutenberg's printing press
  286. 2860 data1495,renaissance begins,1512,michelangelo paints sistine chapel
  287. 2870 data1519,cortes & montezuma,1580,drake circles globe,1620,mayflower sails
  288. 2880 data1685,newton's law,1691,salem witch hunt,1752,ben franklin's kite
  289. 2890 data1776,american revolution,1793,cotton gin,1803,monroe doctrine,1861
  290. 2900 datacivil war,1912,titantic sinks,1914,world war i,1930,great depression
  291. 2910 data1937,hindenburg disaster,1939,world war ii,1945,hiroshima
  292. 2920 data1948,transistor patented,1954,bannister's 4 minute mile,1961
  293. 2930 datacuban missile crisis,1969,moon walk,1973,watergate,1976
  294. 2940 datamao tsetung's death,1978,test tube baby,1982,commodore 64 released
  295. 2950 data1984,ahoy magazine created,1988,us/ussr arms treaty
  296.